10 POKE45,PEEK(174):POKE46,PEEK(175):CLR
20 SP$="                                       "
30 DX=PEEK(186):DV$="0:":OPEN15,DX,15:DIMF$(80),T$(80):OPEN9,0
70 PRINT"[147][206]OVATERM 9.5 FILE COPIER":ML=4030
80 PRINT"[211]OURCE: DEVICE 8  DRIVE 0"
90 PRINT"[196]EST  : DEVICE 9  DRIVE 0":P9=2
100 IFPEEK(1023)THENPRINT"([210][193][205] EXPANDER IS DEVICE"PEEK(1023)"[157])"
110 PRINT""TAB(15);:INPUT#9,I$:A=VAL(I$):IFA<8ORA>16THENA=8
120 GOSUB520:IFERTHEN110
130 DV=A
140 POKE211,24:INPUT#9,I$:A=VAL(I$):IFA>19THEN140
150 DV$=MID$(STR$(A),2)+":":PRINT
160 POKE211,15:INPUT#9,I$:A=VAL(I$):IFA<8ORA>16THENA=9
170 GOSUB520:IFERTHEN160
180 DW=A
190 POKE211,24:INPUT#9,I$:A=VAL(I$):IFA>19THEN190
200 DW$=MID$(STR$(A),2)+":":PRINT
210 CLOSE15:OPEN15,DV,15:OPEN14,DW,15:IFPEEK(1023)THENPRINT""
220 PRINT"[208]ATTERN MATCH: [160][157]";:INPUT#9,I$:IFI$="[160]"THENI$="*"
230 PRINT:PRINT"[211]ELECT FILES FOR COPYING":PRINT"[217][146]ES  [206][146]O  [211][146]TART  [209][146]UIT"
240 OPEN1,DV,0,"$"+DV$+I$:INPUT#15,E,E$:IFE>19THEN420
250 GET#1,A$,A$:SYSML+3:PRINT:PRINTZ$:FL=0
260 SYSML+3:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THENPRINTZ$:GOTO360
270 IFMID$(Z$,25,1)="R"THEN260
280 PRINTZ$"  COPY?";
290 GETA$:IFA$="N"THENPOKE211,0:PRINTSP$;:POKE211,0:GOTO260
300 IFA$="S"THENPOKE211,0:PRINTSP$:GOTO360
310 IFA$="Q"THENPOKE211,0:PRINTSP$:GOTO430
320 IFA$<>"Y"THEN290
330 J=0:FORI=7TO23:IFMID$(Z$,I,1)=CHR$(34)THENJ=I:I=23
340 NEXT:F$=MID$(Z$,7,J-7):IFF$=","ORF$=""THENPOKE211,0:GOTO260
350 FL=FL+1:F$(FL)=F$:T$(FL)=MID$(Z$,25,1):PRINT"[157][157][157][157][157]     ":IFFL<80THEN260
360 PRINT:CLOSE1:IFFL=0THEN430
361 PRINT"[193][146]SK, [210][146]EPLACE, OR [211][146]KIP":PRINT"EXISTING FILES?  [146][157]";
362 GETA$:EX=-(A$="A")-2*(A$="R")-3*(A$="S"):IFEX=0THEN362
363 PRINTCHR$(ASC(A$)+128):PRINT
370 FORI=1TOFL:I$=F$(I):PRINT"[195]OPYING "I$","T$(I);
380 OPEN2,DV,2,DV$+I$:INPUT#15,E,E$:IFE>19THEN410
390 OPEN3,DW,3,DW$+I$+","+T$(I)+",W":INPUT#14,E,E$:IFE<>63THEN399
391 IFEX=3THEN410
392 IFEX=2ORE=0THENCLOSE3:PRINT#14,"S"DW$I$:GOTO390
393 PRINTTAB(28)"REPLACE?";:POKE211,28
394 GETA$:IFA$<>"Y"ANDA$<>"N"THEN394
395 IFA$="N"THENE$="NOT COPIED":GOTO410
396 PRINT"        ";:POKE211,28:E=0:GOTO392
399 IFE>19THEN410
400 SYSML
410 CLOSE2:CLOSE3:PRINTTAB(28)E$:NEXT:GOTO430
420 PRINT:PRINTE$
430 CLOSE1:CLOSE14:CLOSE15:PRINT"[195]OPY MORE FILES?  [146][157]";
440 GETA$:IFA$<>"Y"ANDA$<>"N"THEN440
450 IFA$="Y"THENPRINT"YES":GOTO70
460 PRINT"NO"
470 IFPEEK(6)<255THENEND
480 CLOSE15:OPEN15,DX,15:OPEN2,DX,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN500
490 LOAD"PROG MENU",DX
500 OPEN2,DX,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
510 LOAD"NOVATERM ?.?*",DX,1
520 ER=0:CLOSE16:OPEN16,A,15:CLOSE16:IF128ANDSTTHENER=1
530 RETURN